home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapvan.plp < prev    next >
Text File  |  1993-11-30  |  34KB  |  1,139 lines
  1. /************************************************************************
  2. *    ＰＣ－ＶＡＮでの処理設定                    *
  3. ************************************************************************/
  4. /*    ＰＣ－ＶＡＮでの処理の作成（ｐｌａｎｅのボタン）    */
  5. %pcvan{
  6.     var a[26];
  7.     var b[12];
  8.     var c[8];
  9.     var n[2];
  10.     var onevan[100];
  11.     n:=1;
  12.     d:=1;
  13.     loop({
  14.     onevan:=@getline(PCVAN,n,1);
  15.     case    (onevan={\n},
  16.         {Yes},,
  17.         {No},{
  18.         case    (@nth(onevan,1,{/}),
  19.             {ＢＢＳ},    {b:={BBS }},
  20.             {ＢＢＳ検索},    {b:={検索}},
  21.             {ＢＢＳタイトル},{b:={ﾀｲﾄﾙ}},
  22.             {ＳＩＧ},    {b:={SIG }},
  23.             {ＳＩＧ検索},    {b:={検索}},
  24.             {ＳＩＧタイトル},{b:={ﾀｲﾄﾙ}},
  25.             {ＣＵＧ},    {b:={CUG }},
  26.             {ＣＵＧ検索},    {b:={検索}},
  27.             {ＣＵＧタイトル},{b:={ﾀｲﾄﾙ}},
  28.             ,    {b:=@nth(onevan,1,{/})});
  29.     %jumpcode @nth(onevan,3,{/});
  30.     %day      @head(@nth(@nth(onevan,2,{/}),1,{>}),{,});
  31.     case    (8-@nochar(jumpcode),
  32.         0,{c:=jumpcode},    1,{c:=jumpcode|{ }},
  33.         2,{c:=jumpcode|{  }},    3,{c:=jumpcode|{   }},
  34.         4,{c:=jumpcode|{    }},    5,{c:=jumpcode|{     }},
  35.         6,{c:=jumpcode|{      }},7,{c:=jumpcode|{       }},
  36.         8,{c:=jumpcode|{        }});
  37.  
  38.     a:=b|{:}|c|{:}|
  39.         @case(day,{未設定},{im({未設定})},,
  40.             {im(day|{  })});
  41.     case    (@nochar(n)=1,
  42.         {Yes},    {a:={0}|n|{:}|a},
  43.         {No},    {a:=n|{:}|a});
  44.     case    (d,    1,{PcVan:=PcVan|{s   /}|a;d:=2;NOLINE:=NOLINE+1},
  45.             2,{PcVan:=PcVan|{/}|a|{\n};d:=1});
  46.     case    (@getline(PCVAN,n+1,1),
  47.         {},{case(d,2,{PcVan:=PcVan|{\n}});im({No})},,
  48.             {n:=n+1;im({Yes})});
  49.     })});
  50. };
  51.  
  52. %pcvan3{
  53.     var a[26];
  54.     var b[12];
  55.     var c[8];
  56.     var f[2];
  57.     var n[2];
  58.     var onevan[100];
  59.     n:=1;
  60.     f:=1;
  61.     loop({
  62.     onevan:=@getline(PCVAN3,n,1);
  63.     case    (onevan={\n},
  64.         {Yes},,
  65.         {No},{
  66.         case    (@nth(onevan,1,{/}),
  67.             {ＢＢＳ},    {b:={BBS }},
  68.             {ＢＢＳ検索},    {b:={検索}},
  69.             {ＢＢＳタイトル},{b:={ﾀｲﾄﾙ}},
  70.             {ＳＩＧ},    {b:={SIG }},
  71.             {ＳＩＧ検索},    {b:={検索}},
  72.             {ＳＩＧタイトル},{b:={ﾀｲﾄﾙ}},
  73.             {ＣＵＧ},    {b:={CUG }},
  74.             {ＣＵＧ検索},    {b:={検索}},
  75.             {ＣＵＧタイトル},{b:={ﾀｲﾄﾙ}},
  76.             ,    {b:=@nth(onevan,1,{/})});
  77.     %jumpcode @nth(onevan,3,{/});
  78.     %day      @head(@nth(@nth(onevan,2,{/}),1,{>}),{,});
  79.     case    (8-@nochar(jumpcode),
  80.         0,{c:=jumpcode},    1,{c:=jumpcode|{ }},
  81.         2,{c:=jumpcode|{  }},    3,{c:=jumpcode|{   }},
  82.         4,{c:=jumpcode|{    }},    5,{c:=jumpcode|{     }},
  83.         6,{c:=jumpcode|{      }},7,{c:=jumpcode|{       }},
  84.         8,{c:=jumpcode|{        }});
  85.  
  86.     a:=b|{:}|c|{:}|
  87.         @case(day,{未設定},{im({未設定})},,
  88.             {im(day|{  })});
  89.     case    (@nochar(n)=1,
  90.         {Yes},    {a:={0}|n|{:}|a},
  91.         {No},    {a:=n|{:}|a});
  92.     case    (f,    1,{PcVan3:=PcVan3|{s   /}|a;f:=2;NOLINE:=NOLINE+1},
  93.             2,{PcVan3:=PcVan3|{/}|a|{\n};f:=1});
  94.     case    (@getline(PCVAN3,n+1,1),
  95.         {},{case(f,2,{PcVan3:=PcVan3|{\n}});im({No})},,
  96.             {n:=n+1;im({Yes})});
  97.     })});
  98. };
  99.  
  100. %pcvan2{
  101.     var a[26];
  102.     var b[12];
  103.     var c[8];
  104.     var e[2];
  105.     var n[2];
  106.     var onevan[100];
  107.     n:=1;
  108.     e:=1;
  109.     loop({
  110.     onevan:=@getline(PCVAN2,n,1);
  111.     case    (onevan={\n},
  112.         {Yes},,
  113.         {No},{
  114.         case    (@nth(onevan,1,{/}),
  115.             {ＢＢＳ},    {b:={BBS }},
  116.             {ＢＢＳ検索},    {b:={検索}},
  117.             {ＢＢＳタイトル},{b:={ﾀｲﾄﾙ}},
  118.             {ＳＩＧ},    {b:={SIG }},
  119.             {ＳＩＧ検索},    {b:={検索}},
  120.             {ＳＩＧタイトル},{b:={ﾀｲﾄﾙ}},
  121.             {ＣＵＧ},    {b:={CUG }},
  122.             {ＣＵＧ検索},    {b:={検索}},
  123.             {ＣＵＧタイトル},{b:={ﾀｲﾄﾙ}},
  124.             ,    {b:=@nth(onevan,1,{/})});
  125.     %jumpcode @nth(onevan,3,{/});
  126.     %day      @head(@nth(@nth(onevan,2,{/}),1,{>}),{,});
  127.     case    (8-@nochar(jumpcode),
  128.         0,{c:=jumpcode},    1,{c:=jumpcode|{ }},
  129.         2,{c:=jumpcode|{  }},    3,{c:=jumpcode|{   }},
  130.         4,{c:=jumpcode|{    }},    5,{c:=jumpcode|{     }},
  131.         6,{c:=jumpcode|{      }},7,{c:=jumpcode|{       }},
  132.         8,{c:=jumpcode|{        }});
  133.  
  134.     a:=b|{:}|c|{:}|
  135.         @case(day,{未設定},{im({未設定})},,
  136.             {im(day|{  })});
  137.     case    (@nochar(n)=1,
  138.         {Yes},    {a:={0}|n|{:}|a},
  139.         {No},    {a:=n|{:}|a});
  140.     case    (e,    1,{PcVan2:=PcVan2|{s   /}|a;e:=2;NOLINE3:=NOLINE3+1},
  141.             2,{PcVan2:=PcVan2|{/}|a|{\n};e:=1});
  142.     case    (@getline(PCVAN2,n+1,1),
  143.         {},{case(e,2,{PcVan2:=PcVan2|{\n}});im({No})},,
  144.             {n:=n+1;im({Yes})});
  145.     })});
  146. };
  147.  
  148. /*    ＰＣ－ＶＡＮでの処理実行日の指定    */
  149. %date{
  150.     footnote({実行する日を指定して下さい});
  151.     select({実行する日を指定して下さい}|{  現在は }|@d2|{ です},
  152.         99999,{im(d1)},
  153.         { 毎  日 },    {im({毎日})},
  154.         { 奇数日 },    {im({奇数})},
  155.         { 偶数日 },    {im({偶数})},
  156.         { 日  曜 },    {im({日曜})},
  157.         { 月  曜 },    {im({月曜})},
  158.         { 火  曜 },    {im({火曜})},
  159.         { 水  曜 },    {im({水曜})},
  160.         { 木  曜 },    {im({木曜})},
  161.         { 金  曜 },    {im({金曜})},
  162.         { 土  曜 },    {im({土曜})},
  163.         {毎月 1日},    {im({01日})},
  164.         {毎月05日},    {im({05日})},
  165.         {毎月10日},    {im({10日})},
  166.         {毎月15日},    {im({15日})},
  167.         {毎月20日},    {im({20日})},
  168.         {毎月25日},    {im({25日})},
  169.         {毎月30日},    {im({30日})},
  170.         {複数指定},    {SNDMSG({nyuryo_f.snd});
  171.                 %dat @input({実行する日を指定して下さい\n}|
  172.                     {  ｢,｣で区切って複数指定します\n}|
  173.                     {  日付で指定する場合は半角の二桁の}|
  174.                     {数字で指定して下さい\n}|
  175.                     {  （例）火,木,日,01,13,30},,
  176.                         @body(d1,{,},{,}));
  177.                 im({複数,}|dat|{,終わり})},
  178.         {設定なし},{im({未定})});
  179. };
  180.  
  181. /*    実行日表示用    */
  182. %d2     {case    (d1,
  183.         {毎日},    {im({毎  日})},    {奇数},{im({奇数日})},
  184.         {偶数},    {im({偶数日})},    {日曜},{im({日  曜})},
  185.         {月曜},    {im({月  曜})},    {火曜},{im({火  曜})},
  186.         {水曜},    {im({水  曜})},    {木曜},{im({木  曜})},
  187.         {金曜},    {im({金  曜})},    {土曜},{im({土  曜})},
  188.         {01日},    {im({毎月 1日})},{05日},{im({毎月 5日})},
  189.         {10日},    {im({毎月10日})},{15日},{im({毎月15日})},
  190.         {20日},    {im({毎月20日})},{25日},{im({毎月25日})},
  191.         {30日},    {im({毎月30日})},{未定},{im({設定なし})},
  192.         {未設定},{im({未設定})},,{im({複数指定})})};
  193.  
  194. /*    ＰＣ－ＶＡＮでの処理実行時刻の指定    */
  195. %time{
  196.     footnote({実行する時刻を指定して下さい});
  197.     select({実行する時刻を指定して下さい}|{  現在は }|@t2|{ です},
  198.         99999,{im(t1)},
  199.         {  終   日  },    {im({終日,終わり})},
  200.         {04:00-09:59},    {im({朝,終わり})},
  201.         {10:00-17:59},    {im({昼間,終わり})},
  202.         {18:00-21:59},    {im({夜１,終わり})},
  203.         {22:00-00:59},    {im({夜２,終わり})},
  204.         {01:00-03:59},    {im({夜中,終わり})},
  205.         { 複数 指定 },    {var dat[100];
  206.                 time2;
  207.                 im(dat)},
  208.         { 設定 なし },{im({未定,終わり})});
  209.     };
  210. %time2{
  211.     display({現在の指定状況\n});
  212.     loop({
  213.     SNDMSG({erande_f.snd});
  214.     select({実行時間帯を指定して下さい  複数指定},99999,{dat:=t1},
  215.         {04:00-09:59},
  216.             {dat:=dat|{朝,};
  217.             display({  04:00-09:59\n});im({Yes})},
  218.         {10:00-17:59},
  219.             {dat:=dat|{昼間,};
  220.             display({  10:00-17:59\n});im({Yes})},
  221.         {18:00-21:59},
  222.             {dat:=dat|{夜１,};
  223.             display({  18:00-21:59\n});im({Yes})},
  224.         {22:00-00:59},
  225.             {dat:=dat|{夜２,};
  226.             display({  22:00-00:59\n});im({Yes})},
  227.         {01:00-03:59},
  228.             {dat:=dat|{夜中,};
  229.             display({  01:00-03:59\n});im({Yes})},
  230.         { 指定 終了 },
  231.             {dat:=dat|{終わり};im({No})});
  232.     });
  233. };
  234.  
  235. /*    実行時刻表示用    */
  236. %t2     {case(t1,
  237.         {終日,終わり},{im({終  日})},
  238.         {朝,終わり}  ,{im({04:00-09:59})},
  239.         {昼間,終わり},{im({10:00-17:59})},
  240.         {夜１,終わり},{im({18:00-21:59})},
  241.         {夜２,終わり},{im({22:00-00:59})},
  242.         {夜中,終わり},{im({01:00-03:59})},
  243.         {未定,終わり},{im({設定なし})},
  244.         {未設定},{im({未設定})},,{im({複数指定})})};
  245.  
  246. /*    設定情報をファイルに保存する    */
  247. %writeVAN{
  248.     dispoff({Yes});
  249.     setcdir(DIR1);
  250.     command({copy }|VANFILE|{ PVAPVAN.BAK});
  251.     delfile(VANFILE);
  252.     dispoff({No});
  253.     write    (VANFILE,
  254.         {PCVAN    :=}|@xc({7b})|PCVAN    |@xc({7d})|{;\n});
  255.     SETFILE2:={標準設定};
  256. };
  257.  
  258. /*    設定情報を元に戻す    */
  259. %CANCEL{
  260.     SNDMSG({kaknin_f.snd});
  261.     footnote({本当に元に戻してもいいですか？});
  262.     select({本当に元に戻してもいいですか？},99999,,
  263.         {  はい  },{case(@filechk(VANFILE),
  264.                 {Yes},    {setcdir(DIR1);
  265.                     #PVAPVAN.SET;
  266.                     SETFILE2:={標準設定};})},
  267.         { いいえ },);
  268. };
  269.  
  270. /*    ＳＩＧの指定    */
  271. %setSIG{
  272.     [n]
  273.     var sig[8];
  274.     var d1[40];
  275.     var t1[100];
  276.     var mes[50];
  277.     var kai[50];
  278.     var osl[20];
  279.     var lib[20];
  280.     var olt[3];
  281.     %PCVAN1 @getline(PCVAN,n,1);
  282.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  283.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  284.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  285.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  286.     sig:=    @nth(@getline(PCVAN,n,1),3,{/});
  287.     mes:=    @nth(@getline(PCVAN,n,1),4,{/});
  288.     kai:=    @nth(@getline(PCVAN,n,1),5,{/});
  289.     osl:=    @nth(@getline(PCVAN,n,1),6,{/});
  290.     lib:=    @nth(@getline(PCVAN,n,1),7,{/});
  291.     loop({
  292.     olt:=    @case    (@nth(@getline(PCVAN,n,1),8,{/}),
  293.             {Yes},{im({ 1})},,{im({ 2})});
  294.     SNDMSG({nyuryo_f.snd});
  295.     footnote({ＳＩＧでの処理を設定して下さい});
  296.     %set    @plane(    {cＳＩＧでの処理を設定して下さい\n}|
  297.             {tジャンプコード /12345678\n}|
  298.             {c巡回日          }|@d2|{\n}|
  299.             {s               / 設定 \n}|
  300.             {c巡回時刻        }|@t2|{\n}|
  301.             {s               / 変更 \n}|
  302.             {tフォーラム     /\n}|
  303.             {t会議室         /\n}|
  304.             {c  指定されたフォーラムと会議室の未読を読みます\n}|
  305.             {c  ｢,｣で区切って複数指定が可能です\n}|
  306.             {tＯＳＬ         /\n}|
  307.             {tライブラリ     /\n}|
  308.             {c  指定されたＯＳＬとライブラリのリストを取得します\n}|
  309.             {c  ｢,｣で区切って複数指定が可能です\n}|
  310.             {rＯＬＴ広場     /見る  /見ない\n}|
  311.             {s/ 設定 / 削除 / 取消 \n},
  312.             sig,mes,kai,osl,lib,olt);
  313.     sig:=    @head(@getline(set,1,1),{\n});
  314.     mes:=    @head(@getline(set,4,1),{\n});
  315.     kai:=    @head(@getline(set,5,1),{\n});
  316.     osl:=    @head(@getline(set,6,1),{\n});
  317.     lib:=    @head(@getline(set,7,1),{\n});
  318.     olt:=    @case    (@head(@getline(set,8,1),{\n}),
  319.             { 1},{im({Yes})},{ 2},{im({No})});
  320.     %sel    @head(@getline(set,2,1),{\n});
  321.     %sel2    @head(@getline(set,3,1),{\n});
  322.     %ok    @head(@getline(set,9,1),{\n});
  323.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  324.                 d1:=    @date});
  325.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  326.                 t1:=    @time});
  327.     case    (ok,
  328.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  329.                 {ＳＩＧ}|{/}|d1|{>}|t1|{/}|
  330.                 sig|{/}|mes|{/}|kai|{/}|osl|{/}|
  331.                 lib|{/}|olt|{/\n}|
  332.                 @getline(PCVAN,n+1);
  333.                 im({No})},
  334.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  335.                 @getline(PCVAN,n+1);
  336.                 im({No})},
  337.         { 3},    {im({No})},,
  338.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  339.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  340.                 {No},    {im({Yes})})});
  341.     });
  342. };
  343.  
  344. /*    ＳＩＧ（検索して読む）の指定    */
  345. %setSIGK{
  346.     [n]
  347.     var sig[8];
  348.     var d1[40];
  349.     var t1[100];
  350.     var mes[50];
  351.     var keywordm[100];
  352.     var kai[50];
  353.     var keywordk[100];
  354.     %PCVAN1 @getline(PCVAN,n,1);
  355.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  356.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  357.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  358.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  359.     sig:=    @nth(@getline(PCVAN,n,1),3,{/});
  360.     mes:=    @nth(@getline(PCVAN,n,1),4,{/});
  361.     keywordm:=@nth(@getline(PCVAN,n,1),5,{/});
  362.     kai:=    @nth(@getline(PCVAN,n,1),6,{/});
  363.     keywordk:=@nth(@getline(PCVAN,n,1),7,{/});
  364.     loop({
  365.     SNDMSG({nyuryo_f.snd});
  366.     footnote({ＳＩＧでの処理を設定して下さい});
  367.     %set    @plane(    {cＳＩＧでの処理を設定して下さい\n}|
  368.             {tジャンプコード /12345678\n}|
  369.             {c巡回日          }|@d2|{\n}|
  370.             {s               / 設定 \n}|
  371.             {c巡回時刻        }|@t2|{\n}|
  372.             {s               / 変更 \n}|
  373.             {tフォーラム     /\n}|
  374.             {t  検索文字列   /\n}|
  375.             {t会議室         /\n}|
  376.             {t  検索文字列   /\n}|
  377.             {s/ 設定 / 削除 / 取消 / 説明 \n},
  378.             sig,mes,keywordm,kai,keywordk);
  379.     sig:=    @head(@getline(set,1,1),{\n});
  380.     mes:=    @head(@getline(set,4,1),{\n});
  381.     keywordm:=@head(@getline(set,5,1),{\n});
  382.     kai:=    @head(@getline(set,6,1),{\n});
  383.     keywordk:=@head(@getline(set,7,1),{\n});
  384.     %sel    @head(@getline(set,2,1),{\n});
  385.     %sel2    @head(@getline(set,3,1),{\n});
  386.     %ok    @head(@getline(set,8,1),{\n});
  387.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  388.                 d1:=    @date});
  389.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  390.                 t1:=    @time});
  391.     case    (ok,
  392.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  393.                 {ＳＩＧ検索}|{/}|d1|{>}|t1|{/}|
  394.                 sig|{/}|mes|{/}|keywordm|{/}|
  395.                 kai|{/}|keywordk|{/\n}|
  396.                 @getline(PCVAN,n+1);
  397.                 im({No})},
  398.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  399.                 @getline(PCVAN,n+1);
  400.                 im({No})},
  401.         { 3},    {im({No})},
  402.         { 4},    {SNDMSG({kaknin_f.snd});INFO;im({Yes})},,
  403.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  404.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  405.                 {No},    {im({Yes})})});
  406.     });
  407. };
  408.  
  409. /*    検索して読むの設定の説明    */
  410. %INFO{
  411.     plane(    {c  未読タイトルに検索文字列が含まれている場合、 その\n}|
  412.         {c発言を読む機能です。\n}|
  413.         {c  ボード番号（フォーラム・会議室・掲示板）は｢,｣で区\n}|
  414.         {c切って複数指定します。\n}|
  415.         {c  検索文字列は｢,｣で区切って１ボードにつき３つまで指\n}|
  416.         {c定可能です。ボードとボードは｢|｣で区切ります。\n}|
  417.         {c\n}|
  418.         {c（例）\n}|
  419.         {cフォーラム   ［1,5                               ］\n}|
  420.         {c  検索文字列 ［タウンズ,マーティー|GAME>,ｹﾞｰﾑ>   ］\n}|
  421.         {c\n}|
  422.         {s/ 確認 \n});
  423. };
  424.  
  425. /*    ＳＩＧ（未読タイトルの取得）の指定    */
  426. %setSIGT{
  427.     [n]
  428.     var sig[8];
  429.     var d1[40];
  430.     var t1[100];
  431.     var mes[50];
  432.     var kai[50];
  433.     %PCVAN1 @getline(PCVAN,n,1);
  434.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  435.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  436.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  437.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  438.     sig:=    @nth(@getline(PCVAN,n,1),3,{/});
  439.     mes:=    @nth(@getline(PCVAN,n,1),4,{/});
  440.     kai:=    @nth(@getline(PCVAN,n,1),5,{/});
  441.     loop({
  442.     SNDMSG({nyuryo_f.snd});
  443.     footnote({ＳＩＧでの処理を設定して下さい});
  444.     %set    @plane(    {cＳＩＧでの処理を設定して下さい\n}|
  445.             {tジャンプコード /12345678\n}|
  446.             {c巡回日          }|@d2|{\n}|
  447.             {s               / 設定 \n}|
  448.             {c巡回時刻        }|@t2|{\n}|
  449.             {s               / 変更 \n}|
  450.             {tフォーラム     /\n}|
  451.             {t会議室         /\n}|
  452.             {s/ 設定 / 削除 / 取消 / 説明 \n},
  453.             sig,mes,kai);
  454.     sig:=    @head(@getline(set,1,1),{\n});
  455.     mes:=    @head(@getline(set,4,1),{\n});
  456.     kai:=    @head(@getline(set,5,1),{\n});
  457.     %sel    @head(@getline(set,2,1),{\n});
  458.     %sel2    @head(@getline(set,3,1),{\n});
  459.     %ok    @head(@getline(set,6,1),{\n});
  460.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  461.                 d1:=    @date});
  462.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  463.                 t1:=    @time});
  464.     case    (ok,
  465.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  466.                 {ＳＩＧタイトル}|{/}|d1|{>}|t1|{/}|
  467.                 sig|{/}|mes|{/}|kai|{/\n}|
  468.                 @getline(PCVAN,n+1);
  469.                 im({No})},
  470.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  471.                 @getline(PCVAN,n+1);
  472.                 im({No})},
  473.         { 3},    {im({No})},
  474.         { 4},    {SNDMSG({kaknin_f.snd});INFO2;im({Yes})},,
  475.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  476.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  477.                 {No},    {im({Yes})})});
  478.     });
  479. };
  480.  
  481. /*    未読タイトル取得の設定の説明    */
  482. %INFO2{
  483.     plane(    {c  未読タイトルを取得し、回線切断後それを元にダウンロ\n}|
  484.         {cードする発言を指定し、再び回線接続して、指定した発言\n}|
  485.         {cをダウンロードする機能です。\n}|
  486.         {c\n}|
  487.         {c（注意）\n}|
  488.         {c　必ず、ユーザー設定で、未読タイトルを保存するディレ\n}|
  489.         {cクトリを指定して下さい。なお、通信前にそのディレクト\n}|
  490.         {cリに存在するファイルは全て削除されますので注意して下\n}|
  491.         {cさい。\n}|
  492.         {c\n}|
  493.         {s/ 確認 \n});
  494. };
  495.  
  496. /*    ＢＢＳの指定    */
  497. %setBBS{
  498.     [n]
  499.     var bbs[8];
  500.     var d1[40];
  501.     var t1[100];
  502.     var mes[50];
  503.     %PCVAN1 @getline(PCVAN,n,1);
  504.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  505.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  506.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  507.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  508.     bbs:=    @nth(@getline(PCVAN,n,1),3,{/});
  509.     mes:=    @nth(@getline(PCVAN,n,1),4,{/});
  510.     loop({
  511.     SNDMSG({nyuryo_f.snd});
  512.     footnote({ＢＢＳでの処理を設定して下さい});
  513.     %set    @plane(    {cＢＢＳでの処理を設定して下さい\n}|
  514.             {tｼﾞｬﾝﾙﾒﾆｭｰ名 /12345678\n}|
  515.             {c巡回日       }|@d2|{\n}|
  516.             {s            / 設定 \n}|
  517.             {c巡回時刻     }|@t2|{\n}|
  518.             {s            / 変更 \n}|
  519.             {tボード番号  /\n}|
  520.             {c  指定されたボード番号の未読を読みます\n}|
  521.             {c  ｢,｣で区切って複数指定が可能です\n}|
  522.             {s/ 設定 / 削除 / 取消 \n},
  523.             bbs,mes);
  524.     bbs:=    @head(@getline(set,1,1),{\n});
  525.     mes:=    @head(@getline(set,4,1),{\n});
  526.     %sel    @head(@getline(set,2,1),{\n});
  527.     %sel2    @head(@getline(set,3,1),{\n});
  528.     %ok    @head(@getline(set,5,1),{\n});
  529.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  530.                 d1:=    @date});
  531.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  532.                 t1:=    @time});
  533.     case    (ok,
  534.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  535.                 {ＢＢＳ}|{/}|d1|{>}|t1|{/}|
  536.                 bbs|{/}|mes|{/\n}|
  537.                 @getline(PCVAN,n+1);
  538.                 im({No})},
  539.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  540.                 @getline(PCVAN,n+1);
  541.                 im({No})},
  542.         { 3},    {im({No})},,
  543.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  544.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  545.                 {No},    {im({Yes})})});
  546.     });
  547. };
  548.  
  549. /*    ＢＢＳ（検索して読む）の指定    */
  550. %setBBSK{
  551.     [n]
  552.     var bbs[8];
  553.     var d1[40];
  554.     var t1[100];
  555.     var mes[50];
  556.     var keywordm[100];
  557.     %PCVAN1 @getline(PCVAN,n,1);
  558.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  559.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  560.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  561.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  562.     bbs:=    @nth(@getline(PCVAN,n,1),3,{/});
  563.     mes:=    @nth(@getline(PCVAN,n,1),4,{/});
  564.     keywordm:=@nth(@getline(PCVAN,n,1),5,{/});
  565.     loop({
  566.     SNDMSG({nyuryo_f.snd});
  567.     footnote({ＢＢＳでの処理を設定して下さい});
  568.     %set    @plane(    {cＢＢＳでの処理を設定して下さい\n}|
  569.             {tｼﾞｬﾝﾙﾒﾆｭｰ名  /12345678\n}|
  570.             {c巡回日        }|@d2|{\n}|
  571.             {s             / 設定 \n}|
  572.             {c巡回時刻      }|@t2|{\n}|
  573.             {s             / 変更 \n}|
  574.             {tボード番号   /\n}|
  575.             {t  検索文字列 /\n}|
  576.             {s/ 設定 / 削除 / 取消 / 説明 \n},
  577.             bbs,mes,keywordm);
  578.     bbs:=    @head(@getline(set,1,1),{\n});
  579.     mes:=    @head(@getline(set,4,1),{\n});
  580.     keywordm:=@head(@getline(set,5,1),{\n});
  581.     %sel    @head(@getline(set,2,1),{\n});
  582.     %sel2    @head(@getline(set,3,1),{\n});
  583.     %ok    @head(@getline(set,6,1),{\n});
  584.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  585.                 d1:=    @date});
  586.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  587.                 t1:=    @time});
  588.     case    (ok,
  589.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  590.                 {ＢＢＳ検索}|{/}|d1|{>}|t1|{/}|
  591.                 bbs|{/}|mes|{/}|keywordm|{/\n}|
  592.                 @getline(PCVAN,n+1);
  593.                 im({No})},
  594.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  595.                 @getline(PCVAN,n+1);
  596.                 im({No})},
  597.         { 3},    {im({No})},
  598.         { 4},    {SNDMSG({kaknin_f.snd});INFO;im({Yes})},,
  599.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  600.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  601.                 {No},    {im({Yes})})});
  602.     });
  603. };
  604.  
  605. /*    ＢＢＳ（未読タイトルの取得）の指定    */
  606. %setBBST{
  607.     [n]
  608.     var bbs[8];
  609.     var d1[40];
  610.     var t1[100];
  611.     var mes[50];
  612.     %PCVAN1 @getline(PCVAN,n,1);
  613.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  614.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  615.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  616.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  617.     bbs:=    @nth(@getline(PCVAN,n,1),3,{/});
  618.     mes:=    @nth(@getline(PCVAN,n,1),4,{/});
  619.     loop({
  620.     SNDMSG({nyuryo_f.snd});
  621.     footnote({ＢＢＳでの処理を設定して下さい});
  622.     %set    @plane(    {cＢＢＳでの処理を設定して下さい\n}|
  623.             {tｼﾞｬﾝﾙﾒﾆｭｰ名 /12345678\n}|
  624.             {c巡回日       }|@d2|{\n}|
  625.             {s            / 設定 \n}|
  626.             {c巡回時刻     }|@t2|{\n}|
  627.             {s            / 変更 \n}|
  628.             {tボード番号  /\n}|
  629.             {s/ 設定 / 削除 / 取消 / 説明 \n},
  630.             bbs,mes);
  631.     bbs:=    @head(@getline(set,1,1),{\n});
  632.     mes:=    @head(@getline(set,4,1),{\n});
  633.     %sel    @head(@getline(set,2,1),{\n});
  634.     %sel2    @head(@getline(set,3,1),{\n});
  635.     %ok    @head(@getline(set,5,1),{\n});
  636.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  637.                 d1:=    @date});
  638.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  639.                 t1:=    @time});
  640.     case    (ok,
  641.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  642.                 {ＢＢＳタイトル}|{/}|d1|{>}|t1|{/}|
  643.                 bbs|{/}|mes|{/\n}|
  644.                 @getline(PCVAN,n+1);
  645.                 im({No})},
  646.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  647.                 @getline(PCVAN,n+1);
  648.                 im({No})},
  649.         { 3},    {im({No})},
  650.         { 4},    {SNDMSG({kaknin_f.snd});INFO2;im({Yes})},,
  651.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  652.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  653.                 {No},    {im({Yes})})});
  654.     });
  655. };
  656.  
  657. /*    ＣＵＧの指定    */
  658. %setCUG{
  659.     [n]
  660.     var cug[8];
  661.     var pass[8];
  662.     var cugmain1[2];
  663.     var cugmain2[2];
  664.     var cugmain3[2];
  665.     var cugmain4[2];
  666.     var cugmain5[2];
  667.     var d1[40];
  668.     var t1[100];
  669.     var mes[50];
  670.     var kaigi[50];
  671.     var osl[20];
  672.     var lib[20];
  673.     var olt[3];
  674.     %PCVAN1 @getline(PCVAN,n,1);
  675.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  676.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  677.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  678.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  679.     cug:=    @nth(@getline(PCVAN,n,1),3,{/});
  680.     pass:=    @nth(@getline(PCVAN,n,1),4,{/});
  681.     cugmain1:=@nth(@getline(PCVAN,n,1),5,{/});
  682.     mes:=    @nth(@getline(PCVAN,n,1),6,{/});
  683.     cugmain2:=@nth(@getline(PCVAN,n,1),7,{/});
  684.     kaigi:=    @nth(@getline(PCVAN,n,1),8,{/});
  685.     cugmain3:=@nth(@getline(PCVAN,n,1),9,{/});
  686.     osl:=    @nth(@getline(PCVAN,n,1),10,{/});
  687.     cugmain4:=@nth(@getline(PCVAN,n,1),11,{/});
  688.     lib:=    @nth(@getline(PCVAN,n,1),12,{/});
  689.     cugmain5:=@nth(@getline(PCVAN,n,1),13,{/});
  690.     loop({
  691.     olt:=    @case    (@nth(@getline(PCVAN,n,1),14,{/}),
  692.             {Yes},{im({ 1})},,{im({ 2})});
  693.     SNDMSG({nyuryo_f.snd});
  694.     footnote({ＣＵＧでの処理を設定して下さい});
  695.     %set    @plane(    {tＣＵＧ名     /12345678\n}|
  696.             {tパスワード   /12345678\n}|
  697.             {c巡回日        }|@d2|{\n}|
  698.             {s             / 設定 \n}|
  699.             {c巡回時刻      }|@t2|{\n}|
  700.             {s             / 変更 \n}|
  701.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  702.             {t  掲示板     /\n}|
  703.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  704.             {t  会議室     /\n}|
  705.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  706.             {t  ＯＳＬ     /\n}|
  707.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  708.             {t  ライブラリ /\n}|
  709.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  710.             {r　ＯＬＴ広場 /見る /見ない\n}|
  711.             {s/ 設定 / 削除 / 取消 \n},
  712.             cug,pass,cugmain1,mes,cugmain2,
  713.             kaigi,cugmain3,osl,cugmain4,lib,cugmain5,olt);
  714.     cug:=    @head(@getline(set,1,1),{\n});
  715.     pass:=    @head(@getline(set,2,1),{\n});
  716.     cugmain1:=@head(@getline(set,5,1),{\n});
  717.     mes:=    @head(@getline(set,6,1),{\n});
  718.     cugmain2:=@head(@getline(set,7,1),{\n});
  719.     kaigi:=    @head(@getline(set,8,1),{\n});
  720.     cugmain3:=@head(@getline(set,9,1),{\n});
  721.     osl:=    @head(@getline(set,10,1),{\n});
  722.     cugmain4:=@head(@getline(set,11,1),{\n});
  723.     lib:=    @head(@getline(set,12,1),{\n});
  724.     cugmain4:=@head(@getline(set,13,1),{\n});
  725.     olt:=    @case    (@head(@getline(set,14,1),{\n}),
  726.             {Yes},{im({ 1})},,{im({ 2})});
  727.     %sel    @head(@getline(set,3,1),{\n});
  728.     %sel2    @head(@getline(set,4,1),{\n});
  729.     %ok    @head(@getline(set,15,1),{\n});
  730.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  731.                 d1:=    @date});
  732.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  733.                 t1:=    @time});
  734.     case    (ok,
  735.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  736.                 {ＣＵＧ}|{/}|d1|{>}|t1|{/}|
  737.                 cug|{/}|pass|{/}|cugmain1|{/}|mes|{/}|
  738.                 cugmain2|{/}|kaigi|{/}|
  739.                 cugmain3|{/}|osl|{/}|cugmain4|{/}|lib|{/}|
  740.                 cugmain5|{/}|olt|{/\n}|
  741.                 @getline(PCVAN,n+1);
  742.                 im({No})},
  743.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  744.                 @getline(PCVAN,n+1);
  745.                 im({No})},
  746.         { 3},    {im({No})},,
  747.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  748.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  749.                 {No},    {im({Yes})})});
  750.     });
  751. };
  752.  
  753. /*    ＣＵＧ（検索して読む）の指定    */
  754. %setCUGK{
  755.     [n]
  756.     var cug[8];
  757.     var pass[8];
  758.     var d1[40];
  759.     var t1[100];
  760.     var cugmain1[2];
  761.     var mes[50];
  762.     var keywordm[100];
  763.     var cugmain2[2];
  764.     var kai[50];
  765.     var keywordk[100];
  766.     %PCVAN1 @getline(PCVAN,n,1);
  767.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  768.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  769.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  770.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  771.     cug:=    @nth(@getline(PCVAN,n,1),3,{/});
  772.     pass:=    @nth(@getline(PCVAN,n,1),4,{/});
  773.     cugmain1:=@nth(@getline(PCVAN,n,1),5,{/});
  774.     mes:=    @nth(@getline(PCVAN,n,1),6,{/});
  775.     keywordm:=@nth(@getline(PCVAN,n,1),7,{/});
  776.     cugmain2:=@nth(@getline(PCVAN,n,1),8,{/});
  777.     kai:=    @nth(@getline(PCVAN,n,1),9,{/});
  778.     keywordk:=@nth(@getline(PCVAN,n,1),10,{/});
  779.     loop({
  780.     SNDMSG({nyuryo_f.snd});
  781.     footnote({ＣＵＧでの処理を設定して下さい});
  782.     %set    @plane(    {cＣＵＧでの処理を設定して下さい\n}|
  783.             {tＣＵＧ名       /12345678\n}|
  784.             {tバスワード     /12345678\n}|
  785.             {c巡回日          }|@d2|{\n}|
  786.             {s               / 設定 \n}|
  787.             {c巡回時刻        }|@t2|{\n}|
  788.             {s               / 変更 \n}|
  789.             {tﾒｲﾝﾒﾆｭｰ番号    /12\n}|
  790.             {t  掲示板       /\n}|
  791.             {t    検索文字列 /\n}|
  792.             {tﾒｲﾝﾒﾆｭｰ番号    /12\n}|
  793.             {t  会議室       /\n}|
  794.             {t    検索文字列 /\n}|
  795.             {s/ 設定 / 削除 / 取消 / 説明 \n},
  796.             cug,pass,cugmain1,mes,keywordm,cugmain2,kai,keywordk);
  797.     cug:=    @head(@getline(set,1,1),{\n});
  798.     pass:=    @head(@getline(set,2,1),{\n});
  799.     cugmain1:=@head(@getline(set,5,1),{\n});
  800.     mes:=    @head(@getline(set,6,1),{\n});
  801.     keywordm:=@head(@getline(set,7,1),{\n});
  802.     cugmain2:=@head(@getline(set,8,1),{\n});
  803.     kai:=    @head(@getline(set,9,1),{\n});
  804.     keywordk:=@head(@getline(set,10,1),{\n});
  805.     %sel    @head(@getline(set,3,1),{\n});
  806.     %sel2    @head(@getline(set,4,1),{\n});
  807.     %ok    @head(@getline(set,11,1),{\n});
  808.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  809.                 d1:=    @date});
  810.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  811.                 t1:=    @time});
  812.     case    (ok,
  813.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  814.                 {ＣＵＧ検索}|{/}|d1|{>}|t1|{/}|
  815.                 cug|{/}|pass|{/}|
  816.                 cugmain1|{/}|mes|{/}|keywordm|{/}|
  817.                 cugmain2|{/}|kai|{/}|keywordk|{/\n}|
  818.                 @getline(PCVAN,n+1);
  819.                 im({No})},
  820.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  821.                 @getline(PCVAN,n+1);
  822.                 im({No})},
  823.         { 3},    {im({No})},
  824.         { 4},    {SNDMSG({kaknin_f.snd});INFO;im({Yes})},
  825.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  826.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  827.                 {No},    {im({Yes})})});
  828.     });
  829. };
  830.  
  831. /*    ＣＵＧ（未読タイトルの取得）の指定    */
  832. %setCUGT{
  833.     [n]
  834.     var cug[8];
  835.     var pass[8];
  836.     var cugmain1[2];
  837.     var cugmain2[2];
  838.     var d1[40];
  839.     var t1[100];
  840.     var mes[50];
  841.     var kaigi[50];
  842.     %PCVAN1 @getline(PCVAN,n,1);
  843.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  844.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  845.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  846.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  847.     cug:=    @nth(@getline(PCVAN,n,1),3,{/});
  848.     pass:=    @nth(@getline(PCVAN,n,1),4,{/});
  849.     cugmain1:=@nth(@getline(PCVAN,n,1),5,{/});
  850.     mes:=    @nth(@getline(PCVAN,n,1),6,{/});
  851.     cugmain2:=@nth(@getline(PCVAN,n,1),7,{/});
  852.     kaigi:=    @nth(@getline(PCVAN,n,1),8,{/});
  853.     loop({
  854.     SNDMSG({nyuryo_f.snd});
  855.     footnote({ＣＵＧでの処理を設定して下さい});
  856.     %set    @plane(    {cＣＵＧでの処理を設定して下さい\n}|
  857.             {tＣＵＧ名     /12345678\n}|
  858.             {tパスワード   /12345678\n}|
  859.             {c巡回日        }|@d2|{\n}|
  860.             {s             / 設定 \n}|
  861.             {c巡回時刻      }|@t2|{\n}|
  862.             {s             / 変更 \n}|
  863.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  864.             {t  掲示板     /\n}|
  865.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  866.             {t  会議室     /\n}|
  867.             {s/ 設定 / 削除 / 取消 / 説明 \n},
  868.             cug,pass,cugmain1,mes,cugmain2,kaigi);
  869.     cug:=    @head(@getline(set,1,1),{\n});
  870.     pass:=    @head(@getline(set,2,1),{\n});
  871.     cugmain1:=@head(@getline(set,5,1),{\n});
  872.     mes:=    @head(@getline(set,6,1),{\n});
  873.     cugmain2:=@head(@getline(set,7,1),{\n});
  874.     kaigi:=    @head(@getline(set,8,1),{\n});
  875.     %sel    @head(@getline(set,3,1),{\n});
  876.     %sel2    @head(@getline(set,4,1),{\n});
  877.     %ok    @head(@getline(set,9,1),{\n});
  878.     case    (sel==1,{Yes},    {SNDMSG({erande_f.snd});
  879.                 d1:=    @date});
  880.     case    (sel2==1,{Yes},    {SNDMSG({erande_f.snd});
  881.                 t1:=    @time});
  882.     case    (ok,
  883.         { 1},    {PCVAN:=@getline(PCVAN,1,n-1)|
  884.                 {ＣＵＧタイトル}|{/}|d1|{>}|t1|{/}|
  885.                 cug|{/}|pass|{/}|cugmain1|{/}|mes|{/}|
  886.                 cugmain2|{/}|kaigi|{/\n}|
  887.                 @getline(PCVAN,n+1);
  888.                 im({No})},
  889.         { 2},    {PCVAN:=@getline(PCVAN,1,n-1)|
  890.                 @getline(PCVAN,n+1);
  891.                 im({No})},
  892.         { 3},    {im({No})},
  893.         { 4},    {SNDMSG({kaknin_f.snd});INFO2;im({Yes})},,
  894.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  895.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  896.                 {No},    {im({Yes})})});
  897.     });
  898. };
  899.  
  900. /*    ＯＬＴ広場の指定    */
  901. %setOLT{
  902.     [n]
  903.     var d1[40];
  904.     var t1[100];
  905.     %PCVAN1    @getline(PCVAN,n,1);
  906.     d1:=    @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
  907.                     ,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
  908.     t1:=    @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
  909.                     ,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
  910.     SNDMSG({erande_f.snd});
  911.     d1:=    @date;
  912.     SNDMSG({erande_f.snd});
  913.     t1:=    @time;
  914.     PCVAN:=@getline(PCVAN,1,n-1)|
  915.         {ＯＬＴ広場}|{/}|d1|{>}|t1|{//\n}|
  916.         @getline(PCVAN,n+1);
  917. };
  918.  
  919. /*    ＰＣ－ＶＡＮで行う処理を設定する    */
  920. %setVAN{
  921.     [n]
  922.     SNDMSG({erande_f.snd});
  923.     footnote({処理を選択して下さい});
  924.     select({処理を選択して下さい},99999,,
  925.         { 変  更 },    {setVAN1(n)},
  926.         { 削  除 },    {PCVAN:=@getline(PCVAN,1,n-1)|
  927.                 @getline(PCVAN,n+1)},
  928.         { 中  止 },);
  929. };
  930.  
  931. %setVAN1{
  932.     [n]
  933.     case    (@nth(@getline(PCVAN,n,1),1,{/}),
  934.         {ＳＩＧ},    {setSIG(n)},
  935.         {ＳＩＧ検索},    {setSIGK(n)},
  936.         {ＳＩＧタイトル},{setSIGT(n)},
  937.         {ＢＢＳ},    {setBBS(n)},
  938.         {ＢＢＳ検索},    {setBBSK(n)},
  939.         {ＢＢＳタイトル},{setBBST(n)},
  940.         {ＣＵＧ},    {setCUG(n)},
  941.         {ＣＵＧ検索},    {setCUGK(n)},
  942.         {ＣＵＧタイトル},{setCUGT(n)},
  943.         {ＯＬＴ広場},    {setOLT(n)},,
  944.                 {SNDMSG({erande_f.snd});
  945.                 footnote({ＰＣ－ＶＡＮで行う処理を}|
  946.                     {指定して下さい});
  947.                 select({ＰＣ－ＶＡＮで行う処理を指定して下さい},
  948.                     99999,,
  949.                     {     ＳＩＧ     },{setSIG(n)},
  950.                     { ＳＩＧ（検索） },{setSIGK(n)},
  951.                     { ＳＩＧ（ﾀｲﾄﾙ） },{setSIGT(n)},
  952.                     {     ＢＢＳ     },{setBBS(n)},
  953.                     { ＢＢＳ（検索） },{setBBSK(n)},
  954.                     { ＢＢＳ（ﾀｲﾄﾙ） },{setBBST(n)},
  955.                     {     ＣＵＧ     },{setCUG(n)},
  956.                     { ＣＵＧ（検索） },{setCUGK(n)},
  957.                     { ＣＵＧ（ﾀｲﾄﾙ） },{setCUGT(n)},
  958.                     {   ＯＬＴ広場   },{setOLT(n)},
  959.                     {     終  了     },);});
  960. };
  961.  
  962. /*    ＰＣ－ＶＡＮで行う処理を並べ変える    */
  963. %renVAN{
  964.     var PCVAN2[3074];
  965.     var PCVAN3[3074];
  966.     PCVAN2:={};
  967.     PCVAN3:=PCVAN;
  968.  
  969.     %renum{
  970.     [n]
  971.     case    (PCVAN2,
  972.         {},    {PCVAN2:=@getline(PCVAN3,n,1)},,
  973.             {PCVAN2:=PCVAN2|@getline(PCVAN3,n,1)});
  974.     PCVAN3:=@getline(PCVAN3,1,n-1)|@getline(PCVAN3,n+1);
  975.     };
  976.  
  977.     %cancel{
  978.     [n]
  979.     case    (PCVAN3,
  980.         {},    {PCVAN3:=@getline(PCVAN2,n,1)},,
  981.             {PCVAN3:=PCVAN3|@getline(PCVAN2,n,1)});
  982.     PCVAN2:=@getline(PCVAN2,1,n-1)|@getline(PCVAN2,n+1);
  983.     };
  984.  
  985.     loop({
  986.     NOLINE:=0;
  987.     NOLINE3:=0;
  988.     NOLINE2:=1;
  989.     PcVan3:={};
  990.     PcVan2:={};
  991.     check:={No};
  992.     SNDMSG({erande_f.snd});
  993.     case(PCVAN3={},{No},{pcvan3});
  994.     case(PCVAN2={},{No},{pcvan2});
  995.     footnote({ＰＣ－ＶＡＮで行う順序を指定して下さい});
  996.     %a @plane(
  997.         {cＰＣ－ＶＡＮで行う順序を指定して下さい\n}|
  998.         {c　　　　　　　　　　　未　指　定\n}|
  999.         PcVan3|
  1000.         {c\n}|
  1001.         {c　　　　　　　　　　　指　定　済\n}|
  1002.         PcVan2|
  1003.         {c\n}|
  1004.         {s/      　全　取  消　      /      指  定  終  了      \n});
  1005.  
  1006.     case    (PcVan3={},
  1007.         {No},
  1008.         {loop({
  1009.         case    (@head(@getline(a,NOLINE2,1),{\n}),
  1010.             { 1},    {renum(NOLINE2*2-1);
  1011.                 check:={Yes};im({No})},
  1012.             { 2},    {renum(NOLINE2*2);
  1013.                 check:={Yes};im({No})},,
  1014.                 {case    (NOLINE2,
  1015.                     NOLINE,    {im({No})},,
  1016.                         {NOLINE2:=NOLINE2+1;
  1017.                         im({Yes})})});
  1018.         })});
  1019.     NOLINE2:=NOLINE+1;
  1020.     case    (PcVan2={},
  1021.         {No},
  1022.         {loop({
  1023.         case    (@head(@getline(a,NOLINE2,1),{\n}),
  1024.             { 1},    {cancel((NOLINE2-NOLINE)*2-1);
  1025.                 check:={Yes};im({No})},
  1026.             { 2},    {cancel((NOLINE2-NOLINE)*2);
  1027.                 check:={Yes};im({No})},,
  1028.                 {case    (NOLINE2,
  1029.                     NOLINE+NOLINE3,{im({No})},,
  1030.                         {NOLINE2:=NOLINE2+1;
  1031.                         im({Yes})})});
  1032.         })});
  1033.     %ok  @head(@getline(a,NOLINE+NOLINE3+1,1),{\n});
  1034.     case(ok,{ 2},    {PCVAN:=PCVAN2;im({No})},
  1035.         { 1},    {PCVAN2:={};PCVAN3:=PCVAN;im({Yes})},,
  1036.             {case    (ok={ 0}&&check={No},
  1037.                 {Yes},{im({No})},{No},{im({Yes})})});
  1038.     });
  1039. };
  1040.  
  1041. /*    設定情報をファイルに保存する    */
  1042. %SAVE{
  1043.     var newfile[64];
  1044.     SNDMSG({nyuryo_f.snd});
  1045.     footnote({設定を保存するファイルを指定して下さい});
  1046.     newfile:=@filesel({VAN});
  1047.     case    (newfile<>{},
  1048.         {Yes},    {%newdir @getcdir;
  1049.             case    (@nochar(newdir)==3,
  1050.                 {Yes},    {newfile:=newdir|newfile},
  1051.                 {No},    {newfile:=newdir|{\}|newfile});
  1052.             delfile(newfile);
  1053.             write(newfile,{PCVAN    :=}|
  1054.             @xc({7b})|PCVAN|@xc({7d})|{;\n});});
  1055.     setcdir(DIR1);
  1056. };
  1057.  
  1058. /*    ファイルから設定情報を読み込む    */
  1059. %LOAD{
  1060.     var newfile[64];
  1061.     SNDMSG({nyuryo_f.snd});
  1062.     footnote({設定を読み込むファイルを指定して下さい});
  1063.     newfile:=@filesel({VAN});
  1064.     case    (newfile<>{},
  1065.         {Yes},    {%newdir @getcdir;
  1066.             case    (@nochar(newdir)==3,
  1067.                 {Yes},    {newfile:=newdir|newfile},
  1068.                 {No},    {newfile:=newdir|{\}|newfile});
  1069.             case    (@filechk(newfile),
  1070.                 {Yes},    {%ExcPilot {#}|newfile;
  1071.                     ExcPilot;
  1072.                     setcdir(DIR1);
  1073.                     SETFILE2:=@tail(newfile,{\});});});
  1074.     setcdir(DIR1);
  1075. };
  1076.  
  1077. /*    ＰＣ－ＶＡＮで行う処理を設定する    */
  1078. %setPCVAN{
  1079.     PCVAN:=@getline(PCVAN,1,24);
  1080.     loop({
  1081.     NOLINE:=0;
  1082.     NOLINE2:=1;
  1083.     PcVan:={};
  1084.     d:=1;
  1085.     check:={No};
  1086.     SNDMSG({erande_f.snd});
  1087.     case(PCVAN={},{No},{pcvan});
  1088.     footnote({ＰＣ－ＶＡＮで行う処理を指定して下さい});
  1089.     %a @plane(
  1090.         {cＰＣ－ＶＡＮで行う処理を指定して下さい\n}|
  1091.         PcVan|
  1092.         {s             /      新  規  登  録      \n}|
  1093.         {s/      順  序  変  更      /     元の設定にもどす     \n}|
  1094.         {s/   設定をファイルに保存   /  ファイルから設定を読込  \n}|
  1095.         {s/    設定を保存して終了    / 保存しない(一時的な変更) \n});
  1096.  
  1097.     case    (PcVan={},
  1098.         {No},
  1099.         {loop({
  1100.         case    (@head(@getline(a,NOLINE2,1),{\n}),
  1101.             { 1},    {setVAN(NOLINE2*2-1);check:={Yes};im({No})},
  1102.             { 2},    {setVAN(NOLINE2*2);check:={Yes};im({No})},,
  1103.                 {case    (NOLINE2,
  1104.                     NOLINE,    {im({No})},,
  1105.                     {NOLINE2:=NOLINE2+1;im({Yes})})});
  1106.         })});
  1107.     %sel1 @head(@getline(a,NOLINE+1,1),{\n});
  1108.     %sel2 @head(@getline(a,NOLINE+2,1),{\n});
  1109.     %sel3 @head(@getline(a,NOLINE+3,1),{\n});
  1110.     %ok   @head(@getline(a,NOLINE+4,1),{\n});
  1111.     case    (sel1,
  1112.         { 1},{case    (NOLINE>11&&d==1,
  1113.                 {Yes},
  1114.                 {footnote({これ以上追加登録できません});
  1115.                 wait(2)},
  1116.                 {No},
  1117.                 {case(d,2,{setVAN1(NOLINE*2)},
  1118.                     1,{setVAN1(NOLINE*2+1)})})});
  1119.     case(sel2,{ 1},{renVAN},{ 2},{CANCEL});
  1120.     case(sel3,{ 1},{SAVE},{ 2},{LOAD});
  1121.     case(ok,{ 1},    {writeVAN;im({No})},
  1122.         { 2},    {SETFILE2:={一時設定};im({No})},,
  1123.             {case    (ok={ 0}&&sel1={ 0}&&sel2={ 0}&&
  1124.                 sel3={ 0}&&check={No},
  1125.                 {Yes},{im({No})},{No},{im({Yes})})});
  1126.     });
  1127. };
  1128.  
  1129. /*    実行    */
  1130. var PcVan[1000];
  1131. var PcVan2[1000];
  1132. var PcVan3[1000];
  1133. var NOLINE[2];
  1134. var NOLINE2[2];
  1135. var NOLINE3[2];
  1136. var check[3];
  1137. var d[1];
  1138. setPCVAN;
  1139.